home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pc_pad.arc / ASIPAC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-08  |  4.0 KB  |  125 lines
  1. 10  ' File: ASIPAC.BAS
  2. 20  '
  3. 30  '      ** NATIONS AND CAPITALS OF ASIA AND THE PACIFIC **
  4. 40  '
  5. 50  FOR N=1 TO VAL(RIGHT$(TIME$,2)):X=RND:NEXT N
  6. 60  M$="        NATIONS AND CAPITALS OF"+CHR$(13)+"         ASIA AND THE PACIFIC"+CHR$(13)+STRING$(40,42)
  7. 70  SCREEN 0,0,0:COLOR 7,0,0:WIDTH 40:KEY OFF:CLS:PRINT M$
  8. 80  PRINT:PRINT "This tutorial, multiple-choice program
  9. 90  PRINT"challenges you to learn and recall the
  10. 100  PRINT"capital cities of the nations of Asia
  11. 110  PRINT"and the Pacific Islands.":PRINT
  12. 120  PRINT "The program continues repeating a ques-
  13. 130  PRINT"tion as long as you are making in-
  14. 140  PRINT"correct responses. Watch the selections
  15. 150  PRINT"change somewhat with each incorrect
  16. 160  PRINT "response, however -- the changes pro-
  17. 170  PRINT "vide clues to the correct answer.
  18. 180  LOCATE 24,1:PRINT "Strike any key to begin ...";
  19. 190  DEF SEG=0:POKE 1050,PEEK(1052)
  20. 200  K$=INKEY$:IF K$="" THEN 200
  21. 210  CLS:PRINT M$
  22. 220  DIM I$(51,4)
  23. 230  FOR X=1 TO 51:READ N:FOR Y=1 TO 4:READ I$(X,Y):NEXT Y,X
  24. 240  X=INT(51*RND)+1
  25. 250  FOR N=1 TO 3:Q$(N)=I$(X,N+1):NEXT N
  26. 260  Q$(4)=I$(INT(51*RND)+1,INT(3*RND)+2)
  27. 270  FOR N=1 TO 3
  28. 280  IF Q$(4)=Q$(N) THEN 260
  29. 290  NEXT N
  30. 300  Q$(5)="None of the above"
  31. 310  CR=INT(4*RND)+1
  32. 320  FOR N=1 TO 4
  33. 330  C=0
  34. 340  R$(N)=Q$(INT(4*RND)+1)
  35. 350  C=C+1:IF C < 10 THEN 380
  36. 360  LOCATE 4,1:COLOR 23,0
  37. 370  PRINT "PLEASE WAIT ...":COLOR 7,0
  38. 380  IF N=1 THEN 420
  39. 390  FOR Y=1 TO N-1
  40. 400  IF R$(Y)=R$(N) THEN 340
  41. 410  NEXT Y
  42. 420  NEXT N
  43. 430  R$(5)=Q$(5)
  44. 440  CLS:PRINT M$
  45. 450  PRINT "Which of the following is the capital of"
  46. 460  PRINT I$(X,1)" (1-5)?"
  47. 470  PRINT 
  48. 480  FOR N=1 TO 5
  49. 490  PRINT TAB(5)N"- "R$(N)
  50. 500  NEXT N
  51. 510  PRINT
  52. 520  K$=INKEY$:IF K$="" THEN 520
  53. 530  IF K$<"1" OR K$>"5" THEN 520
  54. 540  PRINT K$
  55. 550  NT=NT+1
  56. 560  IF R$(VAL(K$))=I$(X,2) THEN 580
  57. 570  PRINT:PRINT "Sorry, that is not correct.":GOSUB 600:GOTO 250
  58. 580  PRINT:PRINT "That is correct."
  59. 590  NC=NC+1:GOSUB 600:GOTO 240
  60. 600  COLOR 0,7
  61. 610  LOCATE 18,1
  62. 620  SC=INT(100*NC/NT)
  63. 630  PRINT NC"correct out of"NT;SPC(32-POS(0))
  64. 640  PRINT
  65. 650  PRINT SPC(1)"for a score of"SC"%"SPC(32-POS(0))
  66. 660  COLOR 7,0
  67. 670  LOCATE 21,1
  68. 680  PRINT "Strike the SPACE BAR to continue (or ";
  69. 690  PRINT "the X key to end the quiz) ...";
  70. 700  K$=INKEY$:IF K$="" THEN 700
  71. 710  IF K$=CHR$(32) THEN RETURN 
  72. 720  IF K$="X" OR K$="x" THEN WIDTH 80:END
  73. 730  GOTO 700
  74. 740  DATA 1,Afghanistan,Kahul,Herat,Kundus
  75. 750  DATA 2,Bahrein,Manama,Muharraq,Abqaiq
  76. 760  DATA 3,Bangladesh,Dacca,Chittagong,Khulna
  77. 770  DATA 4,Bhutan,Thimphu,Punakha,Taga Dzong
  78. 780  DATA 5,Brunei,Brunei,Seria,Labuan
  79. 790  DATA 6,Burma,Rangoon,Mandalay,Karbe
  80. 800  DATA 7,Cambodia (Kampuchea),Phnom Penh,Banam,Kompong Trabek
  81. 810  DATA 8,People's Republic of China,Peking,Shanghai,Hong Kong
  82. 820  DATA 9,Taiwan,Taipei,Kaohsiung,Tainan
  83. 830  DATA 10,Cyprus,Nicosia,Limassol,Famagusta
  84. 840  DATA 11,India,New Delhi,Calcutta,Bombay
  85. 850  DATA 12,Indonesia,Jakarta,Bandung,Medan
  86. 860  DATA 13,Iran,Teheran,Isfahan,Mashhad
  87. 870  DATA 14,Iraq,Baghdad,Mosul,Basra
  88. 880  DATA 15,Israel,Jerusalem,Tel Aviv-Yafo,Haifa
  89. 890  DATA 16,Japan,Tokyo,Yokohama,Kobe
  90. 900  DATA 17,Jordan,Amman,Zarka,Irbid
  91. 910  DATA 18,North Korea,Pyongyang,Wonsan,Ch'ongjin
  92. 920  DATA 19,South Korea,Seoul,Pusan,Taegu
  93. 930  DATA 20,Kuwait,Kuwait,Hawalli,Kuwait City  
  94. 940  DATA 21,Laos,Vientiane,Luang Prabang,Kham Keut
  95. 950  DATA 22,Lebanon,Beirut,Tripoli,Zegharta
  96. 960  DATA 23,Malaysia,Kuala Lumpur,Ipoh,Metaka
  97. 970  DATA 24,Maldive,Male,Tiladummati,Suvadiva
  98. 980  DATA 25,Mongolia,Ulaanbaatar,Hovd,Uliastay
  99. 990  DATA 26,Nepal,Kathmandu,Pokhara,Biratnagar
  100. 1000  DATA 27,Oman,Muscat,Nizwa,Sohar
  101. 1010  DATA 28,Pakistan,Islamabad,Karachi,Lahore
  102. 1020  DATA 29,Papua New Guinea,Port Moresby,Lae,Madang
  103. 1030  DATA 30,Philippines,Quezon City,Manila,Davao
  104. 1040  DATA 31,Qatar,Doha,Dukhan,Umm Sa`id
  105. 1050  DATA 32,Saudi Arabia,Riyadh,Jidda,Mecca
  106. 1060  DATA 33,Singapore,Singapore,Paya Lebar,Nee Soon
  107. 1070  DATA 34,Sri Lanka,Colombo,Kandy,Trincomalee
  108. 1080  DATA 35,Syria,Damascus,Aleppo,Homs
  109. 1090  DATA 36,Thailand,Bangkok,Phetchabun,Tak
  110. 1100  DATA 37,Turkey,Ankara,Istanbul,Adana
  111. 1110  DATA 38,Vietnam,Hanoi,Ho Chi Minh City,Hue
  112. 1120  DATA 39,North Yemen,Sanaa,Dhamar,Mocha
  113. 1130  DATA 40,South Yemen,Aden,Haura,Mukalla
  114. 1140  DATA 41,Australia,Canberra,Sydney,Melbourne
  115. 1150  DATA 42,Fiji,Suva,Vita Levu,Lau
  116. 1160  DATA 43,Kiribati,Tarawa,Banaba,Canton Island
  117. 1170  DATA 44,Micronesia,Agana,Ponape,Namonuito
  118. 1180  DATA 45,Nauru,Yaren,Naoero,Buada
  119. 1190  DATA 46,New Zealand,Wellington,Christchurch,Auckland
  120. 1200  DATA 47,Solomon Islands,Honiara,St. Isabel,Guadalcanal
  121. 1210  DATA 48,Tonga,Nuku'alofa,Tongatabu,Apia
  122. 1220  DATA 49,Tuvalu,Funafuti,Nanumes,Nukulaelae
  123. 1230  DATA 50,Vanuatu,Vila,Malekula,Efate
  124. 1240  DATA 51,Western Samoa,Apia,Savai'i,Upolu
  125.